Floppyshop 2

home *** CD-ROM | disk | FTP | other *** search

/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / art&graf.ix / art-0035 / source.bas / tri-art.bas (.txt) < prev

Wrap

Atari STOS Basic | 1997-04-16 | 66KB | 422 lines

100 REPEAT 1000 IF 1010 IF 1020 IF 1030 RETURN 1040 RESET ZONE 1050 SET ZONE 1060 SET ZONE 1070 SET ZONE 1080 SET ZONE 1090 SET ZONE 110 IF 1100 SET ZONE 1110 SET ZONE 1120 SET ZONE 1130 RETURN 1140 RESET ZONE 1150 SET ZONE 1160 SET ZONE 1170 SET ZONE 1180 SET ZONE 1190 SET ZONE 120 VARNAME 1200 SET ZONE 1210 SET ZONE 1220 SET ZONE 1230 RETURN 1240 RESET ZONE 1250 RESET ZONE 1260 BOX 1270 LOCATE 1280 LOCATE 1290 REPEAT 130 WAIT VBL 1300 WAIT 1310 WAIT 1320 WAIT VBL 1330 UNTIL 1340 REM *OPTIONS* 1350 HIDE 1360 INK 1370 FOR 1380 FOR 1390 LOCATE 140 IF 1400 LOCATE 1410 REPEAT 1420 IF 1430 IF 1440 UNTIL 1450 HIDE 1460 IF 1470 IF 1480 REM *SPRAY SIZE* 1490 RESET ZONE 150 IF 1500 LOCATE 1510 LOCATE 1520 REPEAT 1530 WAIT 1540 WAIT 1550 WAIT VBL 1560 UNTIL 1570 REM *INFO* 1580 INK 1590 LOCATE 160 IF 1600 LOCATE 1610 LOCATE 1620 REPEAT 1630 UNTIL 1640 REM ******************** DISK ************************* 1650 INK 1660 FOR 1670 FOR 1680 LOCATE 1690 LOCATE 170 IF 1700 LOCATE 1710 LOCATE 1720 LOCATE 1730 LOCATE 1740 LOCATE 1750 REPEAT 1760 IF 1770 IF 1780 IF 1790 IF 180 IF 1800 UNTIL 1810 HIDE 1820 IF 1830 IF 1840 REM rename file 1850 INK 1860 VARNAME 1870 IF 1880 VARNAME 1890 IF 190 IF 1900 RENAME 1910 REM save 1920 INK 1930 VARNAME 1940 IF 1950 REM LOAD 1960 INK 1970 VARNAME 1980 IF 1990 HIDE 200 IF 2000 REM ********** quit confirm ********** 2010 REPEAT 2020 IF 2030 UNTIL 2040 REM *DELETE* 2050 INK 2060 VARNAME 2070 GOTO 2080 REM calc radius 2090 VARNAME 210 IF 2100 RETURN 2110 REM *******clear all funcs******* 2120 CHANGE MOUSE 2130 RETURN 2140 REM ****************ZOOM************** 2150 HIDE 2160 SCREEN COPY 2170 FOR 2180 FOR 2190 INC 220 IF 2200 SET ZONE 2210 NEXT 2220 NEXT 2230 SET ZONE 2240 SET ZONE 2250 SET ZONE 2260 SET ZONE 2270 SET ZONE 2280 SET ZONE 2290 SET ZONE 230 IF 2300 SET ZONE 2310 INK 2320 REM ************start of zoom mode ************ 2330 VARNAME 2340 IF 2350 IF 2360 IF 2370 IF 2380 IF 2390 IF 240 IF 2400 IF 2410 IF 2420 IF 2430 IF 2440 IF 2450 IF 2460 IF 2470 IF 2480 IF 2490 IF 250 IF 2500 IF 2510 IF 2520 IF 2530 IF 2540 IF 2550 IF 2560 IF 2570 IF 2580 IF 2590 IF 260 IF 2600 IF 2610 IF 2620 IF 2630 IF 2640 IF 2650 IF 2660 IF 2670 IF 2680 IF 2690 IF 270 IF 2700 IF 2710 IF 2720 IF 2730 IF 2740 IF 2750 IF 2760 IF 2770 IF 2780 IF 2790 IF 280 IF 2800 IF 2810 IF 2820 IF 2830 IF 2840 IF 2850 IF 2860 IF 2870 IF 2880 IF 2890 IF 290 IF 2900 IF 2910 IF 2920 IF 2930 IF 2940 IF 2950 IF 2960 IF 2970 IF 2980 IF 2990 IF 30 RESERVE 300 IF 3000 IF 3010 IF 3020 IF 3030 IF 3040 IF 3050 IF 3060 IF 3070 IF 3080 IF 3090 IF 310 IF 3100 IF 3110 IF 3120 IF 3130 IF 3140 IF 3150 IF 3160 IF 3170 IF 3180 IF 3190 IF 320 IF 3200 IF 3210 IF 3220 IF 3230 IF 3240 IF 3250 IF 3260 IF 3270 IF 3280 IF 3290 IF 330 IF 3300 IF 3310 IF 3320 IF 3330 IF 3340 IF 3350 IF 3360 IF 3370 IF 3380 IF 3390 IF 340 IF 3400 IF 3410 IF 3420 IF 3430 IF 3440 IF 3450 IF 3460 IF 3470 IF 3480 IF 3490 IF 350 IF 3500 IF 3510 IF 3520 IF 3530 IF 3540 IF 3550 IF 3560 IF 3570 IF 3580 IF 3590 IF 360 IF 3600 IF 3610 IF 3620 IF 3630 IF 3640 GOTO 3650 REM routine tyo convert zoom to 7 3660 FOR 3670 FOR 3680 VARNAME 3690 NEXT 370 IF 3700 NEXT 3710 GOSUB 3720 IF 3730 IF 3740 RETURN 3750 REM draw from array on to physic which is 7 3760 FOR 3770 FOR 3780 VARNAME 3790 NEXT 380 IF 3800 NEXT 3810 RETURN 3820 REM ****** pen top ******** 3830 VARNAME 3840 REPEAT 3850 WAIT VBL 3860 IF 3870 UNTIL 3880 REPEAT 3890 WAIT VBL 390 IF 3900 IF 3910 IF 3920 LOCATE 3930 UNTIL 3940 LIMIT MOUSE 3950 REM ****** pen bot ******** 3960 VARNAME 3970 REPEAT 3980 WAIT VBL 3990 IF 40 DIM 400 IF 4000 UNTIL 4010 REPEAT 4020 WAIT VBL 4030 IF 4040 IF 4050 LOCATE 4060 UNTIL 4070 LIMIT MOUSE 4080 REM *PALETTE SELECT* 4090 RESET ZONE 410 IF 4100 FOR 4110 FOR 4120 LOCATE 4130 SET ZONE 4140 REPEAT 4150 IF 4160 LOCATE 4170 WAIT VBL 4180 WAIT VBL 4190 WAIT VBL 420 VARNAME 4200 WAIT VBL 4210 WAIT VBL 4220 WAIT VBL 4230 UNTIL 430 IF 440 IF 450 IF 460 UNTIL 470 RESET ZONE 480 SCREEN COPY 490 SCREEN COPY 50 VARNAME 500 GOSUB 510 REPEAT 520 IF 530 VARNAME 540 WAIT VBL 550 IF 560 IF 570 IF 580 IF 590 IF 60 VARNAME 600 IF 610 IF 620 IF 630 IF 640 IF 650 IF 660 IF 670 IF 680 IF 690 IF 70 VARNAME 700 IF 710 IF 720 IF 730 IF 740 IF 750 IF 760 IF 770 IF 780 IF 790 IF 80 PALETTE 800 IF 810 VARNAME 820 IF 830 IF 840 IF 850 IF 860 IF 870 UNTIL 880 RESET ZONE 890 UNTIL 90 REPEAT 900 IF 910 IF 920 RETURN 930 IF 940 IF 950 RETURN 960 SCREEN COPY 970 SCREEN COPY 980 RETURN 990 IF